home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cubase Magazine 56
/
Issue #56.iso
/
mac
/
2-SOFTWARE
/
Sibelius 2 Demo
/
Extras
/
Set as MIDI file
< prev
next >
Wrap
Text File
|
2002-05-20
|
749b
|
34 lines
(*
To use, save this script as an Application, then drop the files you wish to convert onto it
*)
on run
tell application "Finder"
set theList to selection
if (count items in theList) = 1 then
if class of item 1 of theList is application file then
if name of (info for (theList as alias)) is "Sibelius Midi Typer" then
set theList to {}
end if
end if
end if
end tell
MakeAppleAliases(theList)
end run
on open theList
MakeAppleAliases(theList)
end open
on MakeAppleAliases(theList)
tell application "Finder"
repeat with x in theList
try
set the file type of x to "Midi"
set the creator type of x to "SIBE"
on error
error "There was an error"
end try
end repeat
end tell
end MakeAppleAliases